﻿Imports QLBH.GlobalClass
Imports QLBH.frmMain
Public Class frmBHPhieuBanHang
#Region ""

#End Region

    Private Sub btnBHSuaKH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBHSuaKH.Click
        Dim frmCTKH As New frmKHThongTinKhachHang
        frmCTKH.ShowDialog()
    End Sub

    Private Sub btnBHThoat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBHThoat.Click
        Me.Close()
    End Sub

    Private Sub btnBHThemKH_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBHThemKH.Click
        Dim frmCTKH As New frmKHThongTinKhachHang
        frmCTKH.ShowDialog()
    End Sub

    Private Sub btnBHChiTietSP_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBHChiTietSP.Click
        Dim frmTTSP As New frmSPChiTiet
        frmSPChiTiet.ShowDialog()
    End Sub

    Private Sub btnBHCapKey_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBHCapKey.Click
        Dim frmCapKey As New frmBHQLKey
        frmBHQLKey.ShowDialog()
    End Sub

    Private Sub btnBHLuu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBHLuu.Click
        Dim tenF As String = Me.Name + ".xml"
        GlobalFunction.GhiTenControlToXML(Me, tenF)
        MessageBox.Show("Succsesfull", "Thông Báo", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Sub

   
End Class